home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Power 1997 December
/
MACPOWER-1997-12.ISO.7z
/
MACPOWER-1997-12.ISO
/
MacPowerオリジナル
/
Edutainment World
/
チャンプジム for DEMO
/
DIR
/
shared.cst
/
00003_Script_3
< prev
next >
Wrap
Text File
|
1997-09-29
|
3KB
|
122 lines
on initGLOBAL
global quitMODE
set quitMODE = "OFF"
global preColorDepth
set preColorDepth = the colorDepth
set the ColorDepth to 8
global User1,User2,User3,User4,User5
set User1 = GetUserInfo(1)
set User2 = GetUserInfo(2)
set User3 = GetUserInfo(3)
set User4 = GetUserInfo(4)
set User5 = GetUserInfo(5)
global gCurIndex,gCurKeybuf
put empty into gCurIndex
put empty into gCurKeybuf
-- put "" into cast "InputE"
-- put "" into cast "InputJ"
-- global gZenHan
-- set gZenHan = []
-- put field "ZENHAN" into buf
-- put the number of lines in buf into cnt
-- repeat with i=1 to cnt
-- add gZenHan,line i of buf
-- end repeat
-------篋輳ノRナ[ノh
global gKAIGYO
if the MachineType = 256 then
set gKAIGYO = RETURN & numToChar(10)
else
set gKAIGYO = RETURN
end if
-----臚ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
global mittGO,punchGO,sandGO,roadGO,skipGO,shadowGO
set mittGO = "NO"
set punchGO = "NO"
set sandGO = "NO"
set roadGO = "NO"
set skipGO = "NO"
set shadowGO = "NO"
-----臚鬩鯆ノgノ蠻[ノjノìノOヌど。ヌ©ヌゥヌど。ヌιサヌ「ヌゥ
global TREmittGO,TREpunchGO,TREsandGO,TREroadGO,TREskipGO,TREshadowGO
set TREmittGO = "NO"
set TREpunchGO = "NO"
set TREsandGO = "NO"
set TREroadGO = "NO"
set TREskipGO = "NO"
set TREshadowGO = "NO"
-----臚ノgノ蠻[ノjノìノOヌテñろヒ
global mittList,punchList,sandList,roadList,shadowList,skipList
set mittList = []
set punchList = []
set sandList = []
set roadList = []
set shadowList = []
set skipList = []
-----臚ノgノ蠻[ノjノìノOヌテêィ齬
global REmittList,REpunchList,REsandList,REroadList,REshadowList,REskipList
set REmittList = []
set REpunchList = []
set REsandList = []
set REroadList = []
set REshadowList = []
set REskipList = []
set REmittList = GetResult(1,"JPN",1)
set mittList = GetWords(1,"JPN",1)
set REpunchList = GetResult(1,"JPN",2)
set punchList = GetWords(1,"JPN",2)
set REsandList = GetResult(1,"JPN",3)
set sandList = GetWords(1,"JPN",3)
set REroadList = GetResult(1,"JPN",4)
set roadList = GetWords(1,"JPN",4)
set REskipList = GetResult(1,"JPN",5)
set skipList = GetWords(1,"JPN",5)
set REshadowList = GetResult(1,"JPN",6)
set shadowList = GetWords(1,"JPN",6)
-----
global DAYS
set DAYS = 6
-----íP袁ノJナ[ノhナ@êィ齬ï¥ヌゥヌチó猊©ヌゥó猊ιサヌ「ヌゥ
global REcard
set REcard = "OFF"
-----íP袁ノJナ[ノhナ@ノtノBナ[ノ翹hìクóユヌオヌ©ヌゥヌオヌιサヌ「ヌゥ
global JPNcdGO,CHIcdGO,INDcdGO,SPNcdGO,AUScdGO,USAcdGO
set JPNcdGO = [0,0,0,0,0,0]
set CHIcdGO = [0,0,0,0,0,0]
set INDcdGO = [0,0,0,0,0,0]
set SPNcdGO = [0,0,0,0,0,0]
set AUScdGO = [0,0,0,0,0,0]
set USAcdGO = [0,0,0,0,0,0]
-----íP袁鑰ëヒノpノ^ナ[ノì
global SETTEI
set SETTEI = [1,1]
----- ノQナ[ノトノヌナ[ノhナ@ノQナ[ノトナA鬩鯆ノgノ蠻@game,stre
global gMODE
set gMODE = "game"
----- 鞆ë陀トナ[ノrナ[óp
global condition,conditionGO
set conditionGO = "NO"
global REgameList
set REgameList = [1,1,0]
end